home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / ExitDry.Dxr / 00035.ls < prev    next >
Encoding:
Text File  |  1997-11-21  |  352 b   |  11 lines
  1. on exitFrame
  2.   global NewRewardList, exitReward, curLoc, Loc1Name, wagonList, randomized
  3.   if ((Loc1Name <> curLoc) and (randomized = 0)) or (randomized = 1) then
  4.     set tempRew to count(NewRewardList)
  5.     set tempRew to random(tempRew)
  6.     set exitReward to getAt(NewRewardList, tempRew)
  7.   else
  8.     set exitReward to getAt(wagonList, 1)
  9.   end if
  10. end
  11.